home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 7 / FM Towns Free Software Collection 7.iso / data / dora / dorawrit.plp < prev    next >
Text File  |  1993-11-30  |  1KB  |  40 lines
  1. /*    DENGONファイル編集    */
  2. %EDIT    {[flag]
  3.     var    memono    [1];
  4.     %update{CloseAllMemo;mwrite(UP2|{\DENGO},memono);
  5.         mopen(memono);mclose(3);im({No})};
  6.     %cancel    {CloseAllMemo;mopen(memono);mclose(3);footnote({});im({No})};
  7.     %MEMONO    @mlast;memono:=MEMONO+1;
  8.     case    (memono>0,{Yes},{CloseAllMemo;madd(memono,{\n});mclear(memono);
  9.         mopen(memono,0,21,639,459,{w});
  10.         loop    ({footnote({登録取消},{b});
  11.             waitx();
  12.             case    (@xtype,
  13.                 101,update,    201,update,
  14.                 102,cancel,    202,cancel,
  15.                 ,{im({Yes})}
  16.             )})})};
  17. /*『最後の一言』作成    */
  18.     %LAST{        %LASTset{
  19.         case(@filechk(UP2|{\SAIGO}),
  20.         {Yes},{delfile(UP2|{\SAIGO});write(UP2|{\SAIGO},sai)},
  21.         {No},{write(UP2|{\SAIGO},sai)})};
  22.     footnote({注意；この機能はＫＭＦ版　ＲＴＢＢＳ－ＮＥＴのみ有効です});
  23.     %a    @plane(    {c最後の一言へのコメントをして下さい\n}|
  24.     {tコメント/xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx\n}|
  25.             {s              / 登録 / 取消 \n},
  26.                 );
  27. %sai    @head(@getline(a,1,1),{\n});%ok    @head(@getline(a,2,1),{\n});
  28.         case    (ok==1,{Yes},
  29.             {footnote({最後の一言へのコメントを作成します});
  30.             LASTset})};
  31. loop    ({    SNDMSG    ({erande_f.snd});footnote({処理を選択してください});
  32.     select  ({処理を選択してください },
  33.          Wtime4*10,{im({Yes})},
  34.         {      伝言板へのコメントを書く        },
  35.         {EDIT(0);im({Yes})},
  36.         {      最後の一言へのコメントを書く(KMF版のみ  },
  37.         {LAST;im({Yes})},
  38.         {      終了する        },
  39.          {im({No})})});
  40.